home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / DM1.DFM / DM1.txt
Encoding:
Text File  |  1996-08-12  |  2.9 KB  |  123 lines
  1. object DM: TDM
  2.   Left = 372
  3.   Top = 190
  4.   Height = 242
  5.   Width = 222
  6.   object Customer: TTable
  7.     Active = True
  8.     AfterPost = CustomerAfterPost
  9.     OnPostError = CustomerPostError
  10.     OnDeleteError = CustomerDeleteError
  11.     DatabaseName = 'dbdemos'
  12.     TableName = 'CUSTOMER.DB'
  13.     Left = 17
  14.     Top = 8
  15.     object CustomerCustNo: TFloatField
  16.       Alignment = taLeftJustify
  17.       DisplayWidth = 7
  18.       FieldName = 'CustNo'
  19.       OnChange = CustomerCustNoChange
  20.       DisplayFormat = 'CN 0000'
  21.       EditFormat = '0000'
  22.       MaxValue = 9999.000000000000000000
  23.       MinValue = 1000.000000000000000000
  24.     end
  25.     object CustomerCompany: TStringField
  26.       DisplayWidth = 22
  27.       FieldName = 'Company'
  28.       Size = 30
  29.     end
  30.   end
  31.   object CustomerSource: TDataSource
  32.     DataSet = Customer
  33.     Left = 81
  34.     Top = 8
  35.   end
  36.   object Orders: TTable
  37.     Active = True
  38.     OnPostError = OrdersPostError
  39.     OnDeleteError = OrdersDeleteError
  40.     DatabaseName = 'DBDEMOS'
  41.     IndexName = 'CustNo'
  42.     MasterFields = 'CustNo'
  43.     MasterSource = CustomerSource
  44.     TableName = 'ORDERS.DB'
  45.     Left = 17
  46.     Top = 70
  47.     object OrdersOrderNo: TFloatField
  48.       DisplayWidth = 10
  49.       FieldName = 'OrderNo'
  50.       DisplayFormat = #39'#'#39'0000'
  51.       EditFormat = '0000'
  52.     end
  53.     object OrdersCustNo: TFloatField
  54.       Alignment = taLeftJustify
  55.       FieldName = 'CustNo'
  56.       DisplayFormat = 'CN 0000'
  57.       EditFormat = '0000'
  58.       MaxValue = 9999.000000000000000000
  59.       MinValue = 1000.000000000000000000
  60.     end
  61.     object OrdersSaleDate: TDateTimeField
  62.       FieldName = 'SaleDate'
  63.     end
  64.     object OrdersShipDate: TDateTimeField
  65.       FieldName = 'ShipDate'
  66.     end
  67.     object OrdersEmpNo: TIntegerField
  68.       FieldName = 'EmpNo'
  69.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  70.       EditFormat = '0000'
  71.       MaxValue = 9999
  72.       MinValue = 1
  73.     end
  74.   end
  75.   object OrdersSource: TDataSource
  76.     DataSet = Orders
  77.     Left = 81
  78.     Top = 70
  79.   end
  80.   object Items: TTable
  81.     Active = True
  82.     OnPostError = ItemsPostError
  83.     DatabaseName = 'DBDEMOS'
  84.     IndexFieldNames = 'OrderNo'
  85.     MasterFields = 'OrderNo'
  86.     MasterSource = OrdersSource
  87.     TableName = 'ITEMS.DB'
  88.     Left = 17
  89.     Top = 130
  90.     object ItemsOrderNo: TFloatField
  91.       DisplayWidth = 10
  92.       FieldName = 'OrderNo'
  93.       DisplayFormat = '0000'
  94.     end
  95.     object ItemsItemNo: TFloatField
  96.       DisplayWidth = 10
  97.       FieldName = 'ItemNo'
  98.     end
  99.     object ItemsPartNo: TFloatField
  100.       Alignment = taLeftJustify
  101.       DisplayWidth = 10
  102.       FieldName = 'PartNo'
  103.       DisplayFormat = 'PN-00000'
  104.       EditFormat = '00000'
  105.     end
  106.     object ItemsQty: TIntegerField
  107.       DisplayWidth = 6
  108.       FieldName = 'Qty'
  109.     end
  110.     object ItemsDiscount: TFloatField
  111.       DisplayWidth = 10
  112.       FieldName = 'Discount'
  113.       DisplayFormat = '#%'
  114.       MinValue = 100.000000000000000000
  115.     end
  116.   end
  117.   object ItemsSource: TDataSource
  118.     DataSet = Items
  119.     Left = 81
  120.     Top = 130
  121.   end
  122. end
  123.